home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 132 / 132.d81 / midi player.bas (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  593b  |  21 lines
  1. 100 rem midi player loader ************
  2. 110 f=f+1
  3. 120 iff=1thenf=f+1:gosub300
  4. 140 iff=2thenload"opsystem      *",dv,1
  5. 160 iff=3thenload"midi player.bin",dv,1
  6. 170 iff=4thenload"midi player.mod",dv,1
  7. 180 iff=5thenload"midi player.dvc",dv,1
  8. 185 rem -------------------------------
  9. 190 poke49152,0 :rem                    0=sonus/passport  1=sequential  2=datel
  10. 191 rem save"@:midi player.bas",dv
  11. 195 rem -------------------------------
  12. 220 sys33024
  13. 300 poke53280,00:poke53281,00
  14. 310 print"[147]"chr$(8)chr$(14)
  15. 320 printtab(12)"[153]     [204]oading"
  16. 330 printtab(11)"[159][205]idi [208]layer 64 v1.4"
  17. 340 printtab(12)"[150][194]y [202]ohn [211]erafino"
  18. 350 printtab(14)"[158][208]lease [215]ait..."
  19. 360 dv=peek(186):ifdv<8thendv=8
  20. 370 return
  21.